//---------------------------------------------------------------------------
#ifndef DPCnsMFrH
#define DPCnsMFrH

//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "DialPad.h"
#include "PHDS.h"
#include <ExtCtrls.hpp>
#include <Buttons.hpp>
#include "PHEdit.h"
#include "PHLabel.h"
#include "PHGridEd.h"
#include <Grids.hpp>
#include "stdm.h"
#include "PHSpdBut.h"
#include "PHCheck.h"
#include "DIALPAD.h"

//---------------------------------------------------------------------------
class TDPCnsMFr1 : public TDiPad
{
__published:  // IDE-managed Components
  TBitBtn*  BitBtn1;
  TBitBtn*  BitBtn3;
  PHLabel*  PHLabel1;
  PHEdit*  PHEdit1;
  PHLabel*  PHLabel2;
  PHEdit*  PHEdit2;
  PHGridEdit*  PHGridEdit1;
  PHDataSource*  DSForn;
  TBitBtn*  BitBtn2;
  PHCheckBox*  PHCheckBox1;
  TBitBtn*  BitBtn4;
 TBevel *Bevel2;
 TGroupBox *GroupBox1;
 TLabel *Label1;
  void __fastcall BitBtn3Click( TObject* Sender );
  void __fastcall DSFornAfterOpen( TObject* Sender );
  void __fastcall BitBtn1Click( TObject* Sender );
  void __fastcall FormDestroy( TObject* Sender );
  void __fastcall BitBtn4Click( TObject* Sender );
  void __fastcall PHEdit1Change( TObject* Sender );
  void __fastcall PHEdit2Change( TObject* Sender );
  void __fastcall PHCheckBox1Click( TObject* Sender );
  void __fastcall PHGridEdit1DrawGridCell( int Row, int Col, TColor&  CorTexto, TColor&  CorFundo,
                                           bool&  AplicarCoresSelecao, PHDataSource*  PHDS,
                                           AnsiString&  Conteudo );
  void __fastcall FormShow( TObject* Sender );
  void __fastcall PHGridEdit1DblClick( TObject* Sender );
  void __fastcall FormClose( TObject* Sender, TCloseAction& Action );
  void __fastcall PHGridEdit1KeyDown( TObject* Sender, WORD& Key, TShiftState Shift ); private: // User declarations
  TStringList*  ListForn;
  TLista*  LForn;
  TStringList*  MovForn;
  class MOVFORN : TObject
  { public: AnsiString Fornecedor;
    int Data;
    AnsiString Documento;
    AnsiString Historico;
    int Vencimento;
    bool APagar;
    double Valor;
    double ValorPago;
    double Retencoes;
    double JurosMulta;
    double Descontos;
    int Lancamento;
  }
  *MF;
  void __fastcall LimpaGrid( void );
  void __fastcall Processamento( TObject* Sender );
  AnsiString GE; public:  // User declarations
  __fastcall TDPCnsMFr1( TComponent* Owner );
  struct MVFR*  Fr;
  bool Alterar;
  char TipoAlterar;
  int CodigoAlterar;
  int DataAlterar;
  AnsiString CodFornAlterar;
};

//---------------------------------------------------------------------------
extern PACKAGE TDPCnsMFr1*  DPCnsMFr1;

//---------------------------------------------------------------------------
#endif

